MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search

/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.02 Feb 86.sit / 02.02 Feb 86 / Basic 2.2 / Kelly's Basic / asm routine / InvertScreen.asm < prev next >

MacBinary | 1985-12-16 | 1.5 KB | [TEXT/EDIT]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Dec 15 20:41:19 1985, modified Sun Dec 15 20:41:19 1985, creator Macintosh Edit, type ASCII, 773 bytes "InvertScreen.asm" , at 0x385 490 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 49 6e 76 65 72 74 | 53 63 72 65 65 6e 2e 61 |..Invert|Screen.a|
|00000010| 73 6d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |sm......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 03 05 00 | 00 01 ea 9a 29 2e 3f 9a |........|....).?.|
|00000060| 29 2e 3f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |).?.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 42 35 00 00 |........|....B5..|
|00000080| 3b 20 42 41 53 49 43 20 | 49 6e 76 65 72 74 53 63 |; BASIC |InvertSc|
|00000090| 72 65 65 6e 20 4c 69 62 | 72 61 72 79 20 53 6f 75 |reen Lib|rary Sou|
|000000a0| 72 63 65 20 43 6f 64 65 | 0d 3b 20 42 79 20 44 61 |rce Code|.; By Da|
|000000b0| 76 65 20 4b 65 6c 6c 79 | 0d 3b 20 4d 61 63 54 75 |ve Kelly|.; MacTu|
|000000c0| 74 6f 72 20 31 39 38 35 | 0d 0d 3b 53 79 6e 6f 70 |tor 1985|..;Synop|
|000000d0| 73 69 73 3a 0d 3b 09 43 | 41 4c 4c 20 49 6e 76 65 |sis:.;.C|ALL Inve|
|000000e0| 72 74 53 63 72 65 65 6e | 20 28 6d 65 6d 6f 72 79 |rtScreen| (memory|
|000000f0| 25 29 0d 3b 4f 75 74 70 | 75 74 3a 0d 0d 47 65 74 |%).;Outp|ut:..Get|
|00000100| 4e 65 78 74 4c 69 62 41 | 72 67 09 45 51 55 09 24 |NextLibA|rg.EQU.$|
|00000110| 32 41 0d 49 6e 74 65 67 | 65 72 41 72 67 09 45 51 |2A.Integ|erArg.EQ|
|00000120| 55 09 24 33 32 0d 42 61 | 73 69 63 45 72 72 6f 72 |U.$32.Ba|sicError|
|00000130| 09 45 51 55 09 24 34 32 | 0d 53 63 72 65 65 6e 35 |.EQU.$42|.Screen5|
|00000140| 31 32 09 45 51 55 09 28 | 28 35 31 32 2d 31 32 38 |12.EQU.(|(512-128|
|00000150| 29 2a 31 30 32 34 29 2b | 31 30 38 32 38 38 0d 53 |)*1024)+|108288.S|
|00000160| 63 72 65 65 6e 31 32 38 | 09 45 51 55 09 31 30 38 |creen128|.EQU.108|
|00000170| 32 38 38 0d 0d 09 0d 09 | 42 53 52 09 47 65 74 49 |288.....|BSR.GetI|
|00000180| 6e 74 65 67 65 72 56 61 | 72 09 3b 69 6e 74 65 67 |ntegerVa|r.;integ|
|00000190| 65 72 20 61 72 67 20 69 | 6e 20 5b 64 33 3a 77 5d |er arg i|n [d3:w]|
|000001a0| 0d 09 43 4d 50 2e 57 09 | 23 31 32 38 2c 64 33 0d |..CMP.W.|#128,d3.|
|000001b0| 09 42 45 51 09 44 6f 31 | 32 38 09 09 3b 62 72 61 |.BEQ.Do1|28..;bra|
|000001c0| 6e 63 68 20 69 66 20 31 | 32 38 4b 20 6d 65 6d 6f |nch if 1|28K memo|
|000001d0| 72 79 0d 09 43 4d 50 2e | 57 09 23 35 31 32 2c 64 |ry..CMP.|W.#512,d|
|000001e0| 33 0d 09 42 45 51 09 44 | 6f 35 31 32 09 09 3b 62 |3..BEQ.D|o512..;b|
|000001f0| 72 61 6e 63 68 20 69 66 | 20 35 31 32 4b 20 6d 65 |ranch if| 512K me|
|00000200| 6d 6f 72 79 0d 44 65 76 | 69 63 65 5f 55 6e 61 76 |mory.Dev|ice_Unav|
|00000210| 61 69 6c 61 62 6c 65 3a | 0d 09 4d 4f 56 45 51 09 |ailable:|..MOVEQ.|
|00000220| 23 36 38 2c 64 32 09 09 | 3b 44 65 76 69 63 65 20 |#68,d2..|;Device |
|00000230| 55 6e 61 76 61 69 6c 61 | 62 6c 65 20 65 72 72 6f |Unavaila|ble erro|
|00000240| 72 0d 09 4a 53 52 09 42 | 61 73 69 63 45 72 72 6f |r..JSR.B|asicErro|
|00000250| 72 28 61 35 29 0d 44 6f | 35 31 32 09 4c 45 41 09 |r(a5).Do|512.LEA.|
|00000260| 53 63 72 65 65 6e 35 31 | 32 2c 41 30 0d 09 42 52 |Screen51|2,A0..BR|
|00000270| 41 09 49 6e 76 65 72 74 | 0d 44 6f 31 32 38 09 4c |A.Invert|.Do128.L|
|00000280| 45 41 09 53 63 72 65 65 | 6e 31 32 38 2c 41 30 0d |EA.Scree|n128,A0.|
|00000290| 49 6e 76 65 72 74 09 4d | 4f 56 45 2e 57 09 23 35 |Invert.M|OVE.W.#5|
|000002a0| 34 37 32 2d 31 2c 44 31 | 0d 09 4d 4f 56 45 2e 4c |472-1,D1|..MOVE.L|
|000002b0| 09 23 24 46 46 46 46 46 | 46 46 46 2c 44 30 0d 4c |.#$FFFFF|FFF,D0.L|
|000002c0| 6f 6f 70 09 45 4f 52 2e | 4c 09 44 30 2c 28 41 30 |oop.EOR.|L.D0,(A0|
|000002d0| 29 2b 0d 09 44 42 52 41 | 09 44 31 2c 4c 6f 6f 70 |)+..DBRA|.D1,Loop|
|000002e0| 0d 09 52 54 53 0d 47 65 | 74 49 6e 74 65 67 65 72 |..RTS.Ge|tInteger|
|000002f0| 56 61 72 3a 0d 09 4a 53 | 52 09 47 65 74 4e 65 78 |Var:..JS|R.GetNex|
|00000300| 74 4c 69 62 41 72 67 28 | 61 35 29 09 3b 47 65 74 |tLibArg(|a5).;Get|
|00000310| 20 74 68 65 20 6e 65 78 | 74 20 61 72 67 75 6d 65 | the nex|t argume|
|00000320| 6e 74 0d 09 4a 53 52 09 | 49 6e 74 65 67 65 72 41 |nt..JSR.|IntegerA|
|00000330| 72 67 28 61 35 29 09 3b | 5b 64 33 3a 77 5d 20 3d |rg(a5).;|[d3:w] =|
|00000340| 20 69 6e 74 65 67 65 72 | 20 28 65 72 72 6f 72 20 | integer| (error |
|00000350| 69 66 20 61 72 67 0d 09 | 09 09 09 3b 63 61 6e 27 |if arg..|...;can'|
|00000360| 74 20 62 65 20 66 6f 72 | 63 65 64 20 69 6e 74 6f |t be for|ced into|
|00000370| 20 61 6e 20 69 6e 74 65 | 67 65 72 0d 09 52 54 53 | an inte|ger..RTS|
|00000380| 09 09 0d 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 10 49 6e 76 65 72 74 53 | 63 72 65 65 6e 2e 61 73 |.InvertS|creen.as|
|00000440| 6d 65 02 00 00 00 54 45 | 58 54 45 44 49 54 01 00 |me....TE|XTEDIT..|
|00000450| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 01 00 |..TEXTED|IT......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 9a 08 a3 58 00 00 | 03 05 00 00 01 ea 00 00 |.....X..|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 73 00 00 |.......M|onacos..|
|00000510| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000520| 00 16 00 00 00 d4 00 00 | cc 1c 00 7a 00 00 00 1c |........|...z....|
|00000530| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000540| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 01 69 fc |........|......i.|
|00000550| 03 ec 00 47 00 00 00 0e | 00 01 6a 14 46 4f 42 4a |...G....|..j.FOBJ|
|00000560| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|00000570| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00000580| 00 40 01 b8 00 40 10 18 | 00 40 01 bc 00 40 01 be |.@...@..|.@...@..|
|00000590| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000005a0| 00 40 01 46 4f 42 4a ff | ff ff ff 00 40 01 aa 00 |.@.FOBJ.|....@...|
|000005b0| 40 01 ac 00 40 01 ae 00 | 40 01 b0 00 40 01 b2 00 |@...@...|@...@...|
|000005c0| 40 01 b4 00 40 01 b6 00 | 40 01 b8 00 40 10 18 00 |@...@...|@...@...|
|000005d0| 40 01 bc 00 40 01 be 00 | 40 01 be 00 40 01 be 00 |@...@...|@...@...|
|000005e0| 40 01 be 00 40 01 be 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+